/* GUI CONVERTED from rsshmta.i (converter v1.76) Thu Apr 11 05:26:27 2002 */
/* rsshmta.i - Release Management Supplier Schedules                          */
/* Copyright 1986-2002 QAD Inc., Carpinteria, CA, USA.                        */
/* All rights reserved worldwide.  This is an unpublished work.               */
/* $Revision: 1.5.1.2 $                                                       */
/*V8:ConvertMode=Maintenance                                                  */
/* H074* changes  made here should be applied to posmrca.i                    */
/* REVISION: 7.3    LAST MODIFIED: 10/12/92        BY: WUG *G462*             */
/* REVISION: 7.4    LAST MODIFIED: 01/05/93        BY: dpm *H074*             */
/* REVISION: 7.3    LAST MODIFIED: 05/16/94        BY: WUG *GJ59*             */
/* REVISION: 7.5    LAST MODIFIED: 11/14/94        BY: mwd *J034*             */
/* REVISION: 8.6    LAST MODIFIED: 05/20/98        BY: *K1Q4* Alfred Tan      */
/* REVISION: 9.1    LAST MODIFIED: 08/12/00        BY: *N0KP* Mark Brown      */
/* Old ECO marker removed, but no ECO header exists *F0PN*                    */
/* $Revision: 1.5.1.2 $   BY: Jean Miller        DATE: 04/09/02  ECO: *P058*  */
/******************************************************************************/
/* All patch markers and commented out code have been removed from the source */
/* code below. For all future modifications to this file, any code which is   */
/* no longer required should be deleted and no in-line patch markers should   */
/* be added.  The ECO marker should only be included in the Revision History. */
/******************************************************************************/

/************************************************************************/
/* SHIPPER MAINT INCLUDE                                                */
/*                                                                      */
/* Updates the shipfrom-shipto-order info                               */
/* WHEN WE ARE HERE, WE HAVE NEITHER PARENT OR CHILD RECORDS.           */
/* THIS IS BECAUSE WE DON'T WANT THE USER CHANGING SHIPFROM/SHIPTO      */
/* INFO WHICH WOULD CAUSE INCONSISTENCY IN THE STRUCTURE                */
/************************************************************************/
ststatus = stline[2].
status input ststatus.

set abs_shipto go-on(F5 CTRL-D).

if lastkey = keycode("F5") or lastkey = keycode("CTRL-D") then do:
   del-yn = yes.
   {pxmsg.i &MSGNUM=11 &ERRORLEVEL=1 &CONFIRM=del-yn}
   if del-yn = no then undo, retry.

   delete abs_mstr.
   clear frame a.
/*GUI*/ RECT-FRAME-LABEL:SCREEN-VALUE in frame a = F-a-title.
   clear frame b.
/*GUI*/ RECT-FRAME-LABEL:SCREEN-VALUE in frame b = F-b-title.
   next mainloop.
end.

find si_mstr where si_site = abs_shipto no-lock no-error.

if not available si_mstr then do:
   {pxmsg.i &MSGNUM=708 &ERRORLEVEL=3}  /* SITE DOES NOT EXIST */
   undo, retry.
end.

if si_db <> global_db then do:
   /* You must be in database */
   {pxmsg.i &MSGNUM=8148 &ERRORLEVEL=3 &MSGARG1=si_db}
   undo, retry.
end.

{gprun.i ""gpsiver.p""
   "(input si_site, input recid(si_mstr), output return_int)"}
/*GUI*/ if global-beam-me-up then undo, leave.


if return_int = 0 then do:
   /* User does not have access to site */
   {pxmsg.i &MSGNUM=725 &ERRORLEVEL=3}
   undo, retry.
end.

display si_desc.

assign abs_dataset = "pod_det".
